home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
wizndscn.lha
/
WizNodeScan.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1995-09-10
|
8KB
|
2 lines
/* WizNodeScan 1.00 by Stefan Wiberg © 1995 */
SIGNAL ON ERROR;SIGNAL ON SYNTAX;SIGNAL ON IOERR;SIGNAL ON FAILURE;parse arg LineNumber;options results;DoorName="WizNodeScan";Version="1.00";author="Stefan Wiberg";CLS='';call GetVar DoorName,LineNumber,1;user=result;if(~show('l',"mebbsarexx.library"))then;do;if(~addlib("mebbsarexx.library",0,-30,0))then;do;say "Could not open library";end;end;if ~exists("MEBBSNET:CONFIGFILES/WizNodeScan.cfg") then;do;string="The configuration file for WizNodeScan was not found, exiting...";call out;signal getout1;end;call open(file,"MEBBSNET:CONFIGFILES/WizNodeScan.cfg",'r');bbsname=readln(file);NSpath=readln(file);Nodepath=readln(file);list.1=readln(file);aka.1=readln(file);list.2=readln(file);aka.2=readln(file);list.3=readln(file);aka.3=readln(file);list.4=readln(file);aka.4=readln(file);call close(file);string='----';crnt='1';size='full';tzone='';file1="t:WizNodeScan.temp";main:;Call Carrier;call GetVar DoorName,LineNumber,1;Name=result;menu:;Call Carrier;CALL message doorname,linenumber,CLS'',1;CALL message doorname,linenumber,"",1;CALL message doorname,linenumber,"",1;CALL message doorname,linenumber,"C
**
"||doorName||" "||Version||" by "||author||"
**
",1;CALL message doorname,linenumber,'Cis brougt to you by
'bbsname,1;CALL message doorname,linenumber,"",1;CALL message doorname,linenumber,'C
[
1
] Search String ',1;CALL message doorname,linenumber,'C
[
2
] NodeList ',1;CALL message doorname,linenumber,'C
[
3
] Zone(s) ',1;CALL message doorname,linenumber,'C
[
4
] Format ',1;CALL message doorname,linenumber,"",1;CALL message doorname,linenumber,'C
[
S
] Go Search!',1;CALL message doorname,linenumber,'C
[
I
]
Instructions',1;CALL message doorname,linenumber,'C
[
Q
] Quit to BBS',1;CALL message doorname,linenumber,"",1;CALL message doorname,linenumber,'C
Support BBS IS:
Wizard-BBS (+46) (0)11 238428 24hrs
',1;CALL message doorname,linenumber,"",1;CALL message doorname,linenumber,'C
2:204/454.0@FidoNet or 39:161/105.0@AmigaNet or 42:103/1.0@InfoNet
',1;CALL message doorname,linenumber,"",1;Call HOTKEY DoorName,LineNumber,'46HEnter option: ';key=upper(result);if key="1" then call input;if key="2" then call nodelist;if key="3" then call ozone;if key="4" then call input1;if key="S" then call start;if key="I" then call instructions;if key="Q" then call getout;call main;input:;Call Carrier;CALL message doorname,linenumber,CLS"",1;CALL message doorname,linenumber,"
ONLY one KeyWord allowed and NO wildcards allowed.",1;CALL message doorname,linenumber,"",1;CALL Prompt DoorName,LineNumber,'
Enter search string:
',30;temp=result;if temp ~='RESULT' then string=temp;if temp='' then string='----';call nodelist;input1:;Call Carrier;CALL message doorname,linenumber,CLS"",1;CALL message doorname,linenumber,"Here you can choose if you want a Full or Small listning the full shows",1;CALL message doorname,linenumber,"ALL info in the nodelist about the node",1;CALL message doorname,linenumber,"",1;CALL message doorname,linenumber,'(F)ull or (S)mall listning ?',1;CALL Prompt DoorName,LineNumber,'Enter string: ',1;temp=upper(result);if temp ~='RESULT' then size=temp;if temp='S' then Size='SMALL';if temp='F' then Size='FULL';call main;ozone:;Call Carrier;CALL message doorname,linenumber,"",1;CALL Prompt DoorName,LineNumber,'0HEnter Zone Number: ',5;tmp=result;if datatype(tmp) ~=NUM then;do;zone='ALL';tzone='';call main;end;tzone=(' zone '||tmp);zone=tmp;call main;nodelist:;Call Carrier;CALL message doorname,linenumber,"",1;CALL message doorname,linenumber,CLS'',1;do i=1 to 10;if list.i=(list.||i) then break;end;i=i-1;if i=0 then;do;CALL message doorname,linenumber,'No nodelist(s) defined',1;exit;end;CALL message doorname,linenumber,"",1;CALL message doorname,linenumber,'
C
**
Nodelist(s) Available
**
',1;CALL message doorname,linenumber,"",1;CALL message doorname,linenumber,"CPlease pick the nodelist you wish to search in",1;do a=1 to i;CALL message doorname,linenumber,"",1;CALL message doorname,linenumber,'
[
'a'
]
'list.a'
(
'aka.a'
)
',1;end;CALL message doorname,linenumber,"",1;CALL message doorname,linenumber,"",1;CALL HotKey DoorName,LineNumber,'Choose Nodelist to scan: ';tmp=upper(result);if tmp<1|tmp>i then call main;crnt=tmp;call input1;instructions:;Call Carrier;CALL message doorname,linenumber,"",1;CALL message doorname,linenumber,CLS'',1;Call ReadFile DoorName,LineNumber,'DOORS:WizNodeScan/WizNodeScan.Inf';call main;start:;call carrier;if string='----' then call main;nlist=list.crnt;do;CALL message doorname,linenumber,"",1;CALL message doorname,linenumber,'0HBuilding list, please wait...',1;address command NSpath'quickns 'string' 'nodepath''nlist'.#? 'size''tzone' >t:wiznodescan.temp';call OPEN('file','T:wiznodescan.temp','A');call WRITELN('file','~vc');call CLOSE('file');CALL message doorname,linenumber,CLS'',1;Call ReadFile DoorName,LineNumber,file1;end;call main;OUT:;call message doorname,linenumber,string,1;return;GETKEY:;call hotkey doorname,linenumber,string;hot=result;call carrier;return;OUTPUT:;call message doorname,linenumber,string,1;return;BLANK:;string=" ";call output;return;GETOUT:;call Blank;Call Blank;CALL message doorname,linenumber,CLS"",1;string=" You've been using "||DoorName||"
"||Version||"
by
"||author||".";call output;call blank;string="
Thank you, "||user||",please press [RETURN] or [ENTER].";call getkey;call blank;call Exit_Door DoorName,LineNumber;address command 'delete >NIL: t:wiznodescan.temp';exit 0;GETOUT1:;call Blank;Call Blank;CALL message doorname,linenumber,"",1;string=" You've been using "||DoorName||"
"||Version||"
by
"||author||".";call output;call blank;string="
Thank you, "||user||",please press [RETURN] or [ENTER].";call getkey;call blank;call Exit_Door DoorName,LineNumber;exit 0;ERROR:;CALL message doorname,linenumber,'',1;CALL message doorname,linenumber,"**ALERT** General Error!",1;Error_Line=SIGL;Error_Code=RC;CALL message doorname,linenumber,"Line: "Error_Line "Error: "Error_Code",1CALL hotkey doorname,linenumber,"Press Enter"CALL exit_door DoorName,LineNumberexit 10SYNTAX:CALL message doorname,linenumber,'',1CALL message doorname,linenumber, "**ALERT**Syntax Error!",1Error_Line = SIGLError_Code = RCCALL message doorname,linenumber, "Line:"Error_Line "Error:"Error_Code",1;CALL hotkey doorname,linenumber,"Press Enter";CALL exit_door DoorName,LineNumber;exit 10;IOERR:;CALL message doorname,linenumber,'',1;CALL message doorname,linenumber,"**ALERT** I/O Error!",1;Error_Line=SIGL;Error_Code=RC;CALL message doorname,linenumber,"Line: "Error_Line "Error: "Error_Code",1CALL hotkey doorname,linenumber,"Press Enter"CALL exit_door DoorName,LineNumberexit 10FAILURE:CALL message doorname,linenumber,'',1CALL message doorname,linenumber, "**ALERT**Something did go wrong!",1Error_Line = SIGLError_Code = RCCALL message doorname,linenumber, "Line:"Error_Line "Error:"Error_Code",1;CALL hotkey doorname,linenumber,"Press Enter";CALL exit_door DoorName,LineNumber;exit 10;Exit_Error:;CALL message doorname,linenumber,'',1;CALL message doorname,linenumber,"Abandoning .",1;exit 0;Carrier:;call CDetect doorname,linenumber;cd=upper(result);if cd="NO CARRIER!" then signal error;return